home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / gui / triton11.lha / Triton / Install / Install Triton next >
Text File  |  1994-07-14  |  3KB  |  105 lines
  1.  
  2. ; Install script for Triton (Workbench 2.0)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set tritonlib37 "/libs37/triton.library")
  7. (set tritonlib39 "/libs39/triton.library")
  8. (set tritonprefs "/Prefs/Triton")
  9.  
  10. ;=============================================================================
  11. ; English strings
  12.  
  13. (set default_lang 4)
  14.  
  15. (set #bad-kick         "You must be using Kickstart 2.04 to run Triton.")
  16. (set #ask-kick39 (cat     "You are running OS3.0 or higher. Do you want to install a special OS3.0+ "
  17.             "version of triton.library?"))
  18. (set #help-kick39 (cat     "The OS3.0+ version of triton.library is shorter and faster than the "
  19.             "general OS2.04+ version. It cannot be used with OS versions below 3.0."))
  20. (set #ask-prefs     "Do you want to install the Triton Preferences editor?")
  21. (set #help-prefs (cat     "The Triton Preferences editor allows you to change the look and feel "
  22.             "of all Triton applications' GUIs to fit your personal taste."))
  23. (set #ask-makedir1     "Do you want to create the directory\n\nenv:Triton ?")
  24. (set #ask-makedir2     "Do you want to create the directory\n\nenvarc:Triton ?")
  25. (set #help-makedir (cat    "Triton needs the directories env:Triton and envarc:Triton to save it's "
  26.             "configuration files. Without these directories you cannot use window "
  27.             "position remembering or the Triton Preferences editor. You may create "
  28.             "and delete these directories at any time with the Preferences editor.\n\n"
  29.             @makedir-help))
  30. (set #copying-triton    "Copying triton.library to Libs:...")
  31. (set #copying-prefs    "Copying Triton Preferences editor to sys:Prefs...")
  32. (set #install-msg (cat    "\n\nTriton installation script.\n"
  33.             "This script installs Triton on your Amiga.\n\n"
  34.             "Read the 'Distribution' file for\n"
  35.             "more information on the distribution\n"
  36.             "and commercial usage of Triton.\n\n"
  37.             "Triton © 1993-1994 Stefan Zeiger.\n"
  38.             "All rights reserved."))
  39.  
  40. ;=============================================================================
  41. ; make sure we are running under a 2.04 ROM
  42.  
  43. (if (< (/ (getversion) 65536) 37)
  44. (
  45.     (abort #bad-kick)
  46. ))
  47.  
  48. ;=============================================================================
  49.  
  50. (message #install-msg)
  51.  
  52. (if    (< (/ (getversion) 65536) 39)
  53.     (copylib
  54.         (prompt "\n" #copying-triton)
  55.         (help @copylib-help)
  56.         (source tritonlib37)
  57.         (dest "Libs:")
  58.         (confirm)
  59.     )
  60.     (if    (askbool (prompt "\n" #ask-kick39) (help #help-kick39))
  61.         (copylib
  62.             (prompt "\n" #copying-triton)
  63.             (help @copylib-help)
  64.             (source tritonlib39)
  65.             (dest "Libs:")
  66.             (confirm)
  67.         )
  68.         (copylib
  69.             (prompt "\n" #copying-triton)
  70.             (help @copylib-help)
  71.             (source tritonlib37)
  72.             (dest "Libs:")
  73.             (confirm)
  74.         )
  75.     )
  76. )
  77.  
  78. (if    (askbool (prompt "\n" #ask-prefs) (help #help-prefs))
  79.     (
  80.         (copyfiles
  81.             (prompt "\n" #copying-prefs)
  82.             (source tritonprefs)
  83.             (dest "sys:Prefs/")
  84.             (infos)
  85.             (files)
  86.         )
  87.         (if    (= (exists ("env:Triton") (noreq)) 0)
  88.             (
  89.                 (makedir
  90.                     ("env:Triton")
  91.                     (confirm)
  92.                     (prompt "\n" #ask-makedir1)
  93.                     (help #help-makedir)
  94.                 )
  95.                 (makedir
  96.                     ("envarc:Triton")
  97.                     (confirm)
  98.                     (prompt "\n" #ask-makedir2)
  99.                     (help #help-makedir)
  100.                 )
  101.             )
  102.         )
  103.     )
  104. )
  105.